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This document describes the STRING programming language, which has been implemented 
on the MAC Artificial Group's PDP-6 computer- In the STRING system, all objects — 
constants t variables t functions and programs -- are stored and processed in the form 
of strings of characters- The STRING language is unusually concise* yet at the same 
time unusually rich in commands* including a strong arithmetic facility- 

Basically, the STRING program is used In a conversational manner: the user types in 
a character string terminated by the character ALT HODE (alias ESC) and the program 
evaluates the string and types out its value* However, since the -evaluation can 
involve any amount of iteration* recursion, input and output, evaluating a string 
may equally be regarded as running a program, with the returned value of no conse- 
quence* 

Notation and Definitions: 

w is the character "space". 
=5> means "evaluates to", 
a = b ^ c means " a and b each evaluate to £ "- 
null describes the string of no characters, 
a word is a character string delimited by a space. 

x 11 means "the character x , n times in a row". 

ITEMS, OPERATORS AND OPERANDS; THE CURRENT VALUE 

A string being evaluated is processed from left to right, and as part of that 
processing is parsed into substrings of two types: items and operators . Items 
have substantive meaning; that is, an item has a value "of its own". Operators 
take one or two operands and produce a value which depends on the values of the 
operands. An operator which takes one operand la termed unary ; one which takes 
two is binary * A unary operator immediately follows its operand; a binary oper- 
ator immediately follows its first operand and immediately precedes its second 
operand, which is an item . (A few oporators In fact ignore their left operand-) 
If a binary operator is immediately followed by another operator, the second 
operand of the binary operator is the null string between the two operators. 
(A null string evaluates to null-) 
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There is always maintained a current value : at the beginning of a string this 
is null; after an item (which is not the second operand of a binary operator) 
it is the value of that item; after a unary operator the value of that operator; 
and after the second operand of a binary operator, the value of the binary oper- 
ator* Hie current value at the end of a string Is what la returned as the value 
of the string, ihc current value when a binary operator is encountered is what 
Is taken as the first operand, and likewise as the operand of a unary operator; 
the value of the item to its right Is taken as the second operand of a binary 
operator. (A very few binary operators use the item to their right immediately 
as their second operand, rather than its value. This will be made clear in the 
description of each such operator*) 

QUOTING 

The simplest type of evaluation is quoting , where the value a String is wished 
to have la given explicitly. The STRING system provides two quote notations: 

"stg^^ stg , where atft is any string not containing a w (space) ; 
UstgJl^stg ("superquote"), where sta may be any character string; except that 

any ]1 in atg must be matched by a prior ([ . 

"stg^and [[stg]] are items. 

NUMBERS 

There are two types of numbers: precise and imprecise . A non-null character 
string is a precise number if it contains no characters except at least one digit 
(tf to 9), and optionally a decimal point (alias period). A non-null character 
string Is an Imprecise number if it contains no characters except decimal point, 
digits* and atslgn ( *^> ) , with at leaat one digit or decimal point, and at least 
one atsign. (If there are no digits, the decimal point must not be the first 
character*) Atslgn In a number serves as a non-significant digit. A number 
la totally Imprecise If the first digit other than leading 2eroes Is atslgn. 
In a totally Imprecise number, the number of atalgns to the left of the decimal 
point, or the number of leading zeroes to the right of the decimal point* Indi- 
cate^ the order of magnitude of the number. 

A number is an Item; it evaluates to Itself (is implicitly quoted). (Note: in 
a few cases a string of digits terminated by a decimal point or a comma la not 
taken as a quoted character string, but rather as a numeric modifier for a command 
or for evaluation control. These cases will be described below.) 

SPACE. CARRIAGE RETURN, ETC. 

The character w* (apace) is an Item which evaluates to null. (Note: in some contexts 
the space character has a special meaning and Is not evaluated. For instance, it 
is the terminator of a " quote-) Horizontal tab, line feed, vertical tab* and form 
feed are unary operators which ignore their operand and return the null value. 
Carriage return is a unary operator which returna the current value as its value, 
i.e* has no effect. 
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PARENTHESES 

It is frequently desired to have an expression more complicated than an item as 
the second operand of a binary operator* For this purpose are provided ( ) paren- 
theses, which may surround any string; except that a ) in that string must be 
matched by a prior ( also therein- The parentheses delimit an item as seen from 
the string in which they appear. 

Vhen < is encountered, the current value is set aside, and the string within the 
parentheses is evaluated with an initial current value of null. The ) acts as 
the end of the string, and the value returned then is the value of the item which 
is delimited by ( ) . In other words. ( causes a pushdown of one level and ) 
causes a value to be returned to the upper level. 

CONCATENATION 

1 binary operator concatenate . (Example: 1'2*12 .) 

.* binary operator reverse concatenate . (Example: l t '2*2l • ) 

ARITHMETIC 

+ binary operator add . It is defined on precise numbers In the natural way, 

with the result similarly a precise nuraber. If both operands are numbers 
and either is imprecise, the result will be an Imprecise number; the 
leftmost stsign in the result will align with the leftmost atsign in 
either operand; and for the purpose of determining the carry into the 
significant portion of the result for each atslgn in each operand will 
be taken a random digit (0 to 9) during the addition. 

If either operand is not a number (with optional leading + or - sign), 
but is an arithmetic expression (a string whose only operators are 
arithmetic ones), the result will be the correct arithmetic expression. 
In such a result all items except numbers appearing in the two operands 
will appear in the same order (left-to-right) as they appeared in the 
operands, left operand first- Kumeric terms may be rearranged, and 
possibly combined according to the rules for two numeric operands. 

If one operand £s null, value is the other operand. 

,+ binary operator reverse add . Like + but puts non-numeric terms from second 
operand before those from first- 

binary operator subtract . Negates second operand, then does + . (Hull 
negated is null.) 
,- binary operator reverse subtract . Exchanges operands > then subtracts. 

* binary operator multiply . The symbolic terms of the operands are handled 
as by + . 

When multiplying two numeric operands (or numeric parts of expression 
operands) there is first calculated the "significance of the result". 
This is a number which is the minimum of: the number of significant 
digits (excluding leading zeroes) in the first operand; said number 
in the second operand; and the current significance . (The current 
significance is set by commands described below.) If an operand is 
a precise number, its number of significant digits is assumed to be 
infinite* In imprecise operands, the atsign is numerically of value 
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zero. 

The numeric product will be Imprecise if either numeric operand is, 
or if the number of digits in the result is as great as the current 
significance; and the number of digits to the left of the first atslgn 
in the result will be equal to the prccalculated ''significance of the 
result". Otherwise the numeric product will be precise. 

,* binary operator reverse multiply . 

*+ binary operator positive multiply . Identical in effect to * - 

,*+ binary operator positive reverse multiply * Identical to ,* . 

*- binary operator negative multiply . Negates second argument, then multiplies. 

,*- binary operator negative reverse multiply . Exchanges operands, negates new 
second operand, then multiplies. 

/ binary operator divide * If both operands are numbers, divide precalculstes 

the significance of the result in the same manner as multiply- Then 
if the significance of the result is infinite, / perforins division by 
the schoolboy algorithm and has the value of the quotient- If the 
significance of the result is the finite number n , exactly n quotient 
digits (not counting leading zeroes) are generated; the quotient is 
marked imprecise by a final atsign (after a decimal point if needed); 
this quotient is returned as the value. 

The remainder is created, and saved; see below. The quotient is negative 
if exactly one of the operands is; the remainder takes the sign of the 
dividend. The results are always such that (quotient * divisor) + 
remainder * dividend , though with a possible loss of precision if the 
significance of the result is not infinite. The dceimal point in the 
remainder aligns with that of the dividend; the number of digits provided 
to the right of the decimal point in the quotient (if not zero) will 
be that number in the dividend minus that number in the divisor. 

If not both operands are numbers, / does indicated division : it concat- 
enates its first operand, the character / , and its second operand (in 
parentheses if necessary)- Indicated division sets the remainder to 
null. 

In the special case where the first operand is null, / generates the 
reciprocal of its secood op*raod< El fchi Significance of thi rttall 
is to be infinite, the operand is divided into l«0 n (I* followed by n 
zeroes) where n is the total number of digits in the given operand 
(excluding leading zeroes); if the significance is to be finite number 
m , then m digits of quotient are developed and the result is marked 
imprecise. Reciprocation generates a numeric remainder* 

Tn the case where the second operand is null, value is the first operand, 
and the remainder is not affected. 

,/ binary operator reverse divide * Exchanges operands and divides. 

/+ binary operator positive divide : identical in effect to / . 

,/+ binary operator positive reverse divide : identical to ,/ . 

/- binary operator negative divide * Negates second operand and divides. 

,/- binary operator negative reverse ^*^_*A_ * Exchanges operands * negates new 
second operand , divides. 
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*/ 



binary operator divide for In 
number 



if its number of 
significance of the result. 



togcr quotient . The quotient will be a precise 
significant digits docs not exceed the calculated 
A correct remainder is generated. 



»*/ binary operator reverse divide for Integer quotient . 

t 1F/+ binary operator reverse positive divide tor integer quot ient. 

M/ m binary operator reverse negative divide for intefier quotient . 



EXAMPLES 



(assuming current significance is infinite) 

5+3*2-* 16 

5+( 3*2)^11 

"A+B-2 w ,-"C+5,-*C-A-B+3. 

4-6/2*2,3 (remainder is .0) 

4.6/2,0*2 (remainder is .6) 

4. 6/2. 00*2 (remainder is .60) 

4. 6*/2. 00*2. 3fc (remainder la .00) 

4'2/7*»6 (remainder is 0) 

4'"/~'2*4/2 (does not affect remainder) 

"X^/3+x/3 (remainder null) 



SYMBOLS 



A string of letters and digits ( atsign being taken as a digit) which contains 
at least one letter (or a string constating of nothing but atslgns) is a symbol . 
A symbol may be of any length* It is an item. A symbol may be either defined 
or undefined; initially all symbol* are undefined (except * > for which 
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below) 



An undefined symbol is implicitly quoted: it evaluates to itself- A defined symbol 
has a symbol value , which is a chsracter string that becomes associated with the 
symbol as it is defined. The value of a defined symbol is the result of evaluating 
its symbol value. As the processor evaluates a typed-in string) if it encounters 
a defined symbol it sets aside its current position in that string, the current 
accumulated value, and other information regarding its processing of that string, 
and commences eva Luting the symbol value in the same manner as it would evaluate 
a typed-in string. Then if while processing the symbol value it finds it has to 
evaluate a defined symbol, it again sets aside it* work and commences evaluation 
of that symbol's symbol value. The evaluation of each such string (typed-in string 
or symbol value) is said to occur on a given level . The typed-in string is on 
the top level, or level number 1; the symbol value of a symbol encountered on level 

is evaluated on level 2, etc. (The system as currently arranged has facilities 
for approximately 1000 levels.) 



It is possible to define a symbol in such a 
only until the level on which it was defined 
level, A symbol so defined is called a level 
on which it was defined is associated with it 
symbol may be used on lower (greater-numbered 
is called a unlveraal symbol , which is Indies 
level 0- More than one definition of a symbo 
will have a different definition level. Only 
that is the one with the largest -numbered def 
the current level number). 



that that definition is effective 
returns a value to the next hlghter 
symbol » and the number of the level 
as its definition level . A level 
) levels* A symbol not so defined 
ted internally by giving it definition 
1 may exist at a time, though each 
one definition is active at a time; 
lnition level (but not greater than 
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DEFINING 

; (semicolon) binary operator level define . The operand to the right must be a 
symbol; it is not evaluated- The accumulated value to the left (the 
"current value") is preserved as the value of the semicolon operator t 
as well as being its left operand* This operator causes the symbol to 
its right to becone defined as a level symbol , with a symbol value iden- 
tical to the left operand and a definition level equal to the current 
level of evaluation. If there was already a definition of the symbol 
with the same definition level, that definition is completely removed. 
Any other existing definitions are allowed to remain, but they will 
not be active until this definition is removed- This definition is re- 
moved as evaluation returns from this level to a higher level (smaller 
numbered) . 

» (comma) binary operator define - The operand to the right must be a symbol; 

it is not evaluated- The current value as this command is encountered 
is preserved as the value of the comma operator, as well as being taken 
as its left operand. Comma causes the symbol to its right to become 
defined as a universal symbol with a symbol value identical to the left 
operand- Any and all existing definitions of this symbol (except those 
with definition level numbers greater than the number of the current 
level) are first remwed. 

The symbol A is always defined and always evaluates to w (space) - 

Note; When a definition is removed whose symbol value is still being processed 

on the current level or a higher one (smaller-numbered), although the dcfi~ 
nltion Is remwed the symbol value part of it is preserved until evaluation 
of it is finished- 

EXAMPLES: X+3,Y^X+3 *\ assuming X is undefined 

(now) 




il lust rates formal 
definition of Y 



X now is defined 

illustrates numeric definition of 2 

|[U*U+(V*V)H,FN1*U*U+{V*\0 function with parameters U and V 

[[3;U_FN1)],FN2^3;U_FN1 calls FNl with specific value for U, without 

affecting upper levels' def lnltion(s) of U 

EVALUATION CONTROL 

Often it la desired to limit the depth in levels to which a symbol is evaluated. 
Such a usage tends to correspond to the use of a symbol as a string variable t 
rather than a formal expression. 

-sym where svm is any symbol , is an item which evaluates to the symbol value 
of £ym if sym is defined > and null otherwise. This symbol value is 

quoted, i-e. not evaluated. 
..sym commences evaluating sym in the usual manner, but imagines that every 

symbol to be evaluated in the symbol value of sym is preceded by exactly 
one period- 
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like ..sym , but imagines two periods in front of each symbol except those 
which appear explicitly with one preceding period. 

The above description extends to any number of periods. The maximum evaluation 
depth permitted is a parameter of each level; for the top level ic la set larger 
than the number of available levela; when a symbol is not preceded by any periods 
the depth limit on the new level la set 1 less than on the current level; if 
there are n periods before the symbol, the limit on the new level ia the lesser 
of: n , and 1 less than the current limit. When the limit on a level would be 
I, that level is not entered, but instead of evaluating a symbol's symbol value 
on the new level that symbol value is simply quoted, 

n.sym where sym is a symbol (except one composed only of atsigns), and n is 

a string of digits interpreted aa a decimal integer, is identical 
to writing n periods before sym . Briefly, n.sym2- Q sym * 

REMAINDER 

N (backslash) item remainder , defined by divide operation. Backslash possesses 
many properties of a level symbol: when it becomes defined, a previous 
definition will be removed only if it occurred on the same level; when 
evaluation returns to a higher level than the one on which the current 
definition was created, that definition is removed and any higher-level 
definition becomes again active. Backslash ia not a symbol. 

THE CURRENT SIGNIFICANCE 

The current significance is a parameter of each level- When a level is entered, 
its current significance is set to the value at that mement of the current signif* 
icance on the level above. 

;? unary operator set current significance . If the value of the operand ia a 
number, its integer part is taken and the current significance on this 
level is set to it. If it ia not a number, current significance is 
made infinite. Maintains current value. 

**? unary operator set level fl significance . This processes its operand like 

;J and sets the quantity to which the current significance is set when 
level 1 is entered, this does not affect the current significance. 
The current value is maintained. 

Initially the level significance is infinite. 

ARGUMENT 

t (up arrow) item a r Rumen t . When encountered, causes evaluation to viait the 
immediately higher (smaller-numbered) level, that level is the one 
in which was found the symbol in whose symbol value the up arrow was 
encountered. The processing pointer on the higher level had been left 
just to the right of that symbol, the up arrow command commences pro* 
cessing as if back on the upper level. &s follows: 

(1) the accumulated value la set to null* 

(2) if the character to the right of the processing pointer la a 

space, the pointer is advanced over it. 

(3) evaluation resumes in a normal manner on the higher level, 

but the character v (space) is treated not as an item with 



*N 



value null) but as a signal to go back to the lover level , 
carrying the accumulated value on the upper level as the 
value of the t . (If the end of the string on the upper 
level is encountered, chat acts as such a signal too.) Hie 
upper level pointer is now in the position just to the right 
of the space signal (or at the end of the string). Hence 
successive uses of T on a level evaluate successive arguments 
on the level above , passing the pointer over each in turn. 
Performance of |* is not a return to the upper level and therefore no 
level symbol definitions are removed. Those created on the lower level 
are invisible on the upper level, however. 

.f item quoted argument , Makes use of the pointer on the level above. 

(1) if the character to the right of that pointer is a space, the 

pointer is advanced over it. 

(2) then the pointer is advanced until a space (or the end of the 

string) is encountered; the string of characters so passed 
over (not including the space at the end) is returned as the 
value of the X with no further evaluation. The pointer on 
the upper level is left to the right of the terminating spare. 

Note: The pushdown caused by ( is identical , as far as the Lower level can sec, 
to that done to evaluate a symbol; a new level is used in each case. The 
"pop up" caused by ) is identical to that when a value is returned at the 
end of a string. So a levet symbol definition occurring within ( ) paren- 
theses is cancelled at the ) ; also note that an unmatched ) can be used 
to mean "return the current value to the upper level"* 

EXAMPLES: 5,X*5 

([X+2]],Y*X+2 

[[Y*3]],Z*Y*3 

"2^* Z 

.Z^Y*3 

. ,2*X+2*3 the * was performed* the + was not 

...Z*Z*21 

"♦+U,P1**+1 

P1 V 5XP1 V 5«4>6 

T2 w PU&/2=>6 

T2*,PU4^/2*4 

T2 v PU4„/2=»5 

T2„PLA, M /2*.5 last space evaluated! 

ATTACH MODE 



ildes having reverse mode, the five combinative operators (concatenate, add , 
subtract, multiply* and divide) have attach mode and reverse attach mode* The 
attach process is described below for concatenation, with the details applicable 
to the other attach mode ccmimarKis listed- 

$' binary operator attach concatenate * Operand to the right must either be 
a symbol, or be one or more periods followed by a symbol (the form 
n.sym Is not permitted In this context). First the $' evaluates its 
operands conventionally, and does a concatenation like ' ■ returning 
the result of that concatenation as the value of Che $' . Additionally, 
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however, the S 1 defines a certain symbol with a symbol value identical 
to the concatenated result. If the right operand of the $' had no 
periods, or had Just one, the symbol to be defined is the symbol in 
that right operand. But if the right operand had more than one period, 
said operand is at this time evaluated again with ona__fewt*r pe riod. 
The resulting value la a character string which should begin with a 
symbol: and that symbol la the one defined as the result of the concat- 
enation. If the symbol to be defined had an active level symbol defin- 
ition at the time $' was to (re)define It, the new definition is a 
level symbol definition; otherwise it Is a universal symbol definition. 
:' binary operator attach reverse concatenate . Does reverse concatenate, defines 

original right operand as result. 
S+ binary operator attach add . Like $' but of courae does addition, not con- 
catenation. 
:+ binary operator attach reverse add . 
S- binary operator attach subtract . 
:- binary operator attach reverse subtra c t . 
S* binary operator attach nult ip ly. 
$*+ binary operator attach positive multiply . 
$*- binary operator attach m^sative mu ltiply. 
* binary operator attach reverse multiply . 
*+ binary operator attach revers e p os I ^ lye rmi .It lp 1 y . 
*- binary operator attach reverse negative multiply . 
S/ binary operator attach div i:U; . 
$/+ binary operator attach positive divide . 
S/- binary operator attach negative divide . 
/ binary operator attach reverse divide . 
/+ binary operator attach reverse positive divide . 
/- binary operator attach reverse negative divide . 

Note: attach and reverse attach modes also exist for the ttf operator (divide for 
integer quotient)) including the positive and negative versions of it* 

CONDITIONALS 

Certain operators, about to be described, are termed conditionals : according 
to whether or not its operands meet particular conditions, such an operator will 
or will not skip the next word in the atrlng being evaluated* If the skip con- 
dition is not met, processing resumes immediately to the right of the right oper- 
and. If the skip condition is met, the following steps are taken* (I) The char- 
acter to the right of the right operand is examined: tf it is a space, the pro- 
cessing pointer is moved over it, (2) the pointer is advanced to the right until 
it passes over a space (or reaches the end of the string). However, a given 
space will not be seen if it is (a) Inside [( J] superquotes; or (b) the termin- 
ator of a " quote; or (c) somewhere within ( ) parentheses* Hie ( to be effec- 
tive in hiding a space must be encountered during the skip, i.e. it may not be 
outside the string of charactera aklpped over* 

= binary conditional operator skip if equal . Skips if the values of its two 

operands are identical character strings* 
:= binary conditional operator skip if not equal . Skips only if the values 

of its two operands are not identical character strings- 
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In the following numeric conparison conditionals , If an operand is an inprccise 
number each atsign In It Is replaced by a random digit (G to 9)* 

^►> binary conditional operator aklp If numeric greater * Skips if both operand* 

are numbers (with optional leading 4- or - signs) and the first Is greater 

chart the «©oend. 
tt£ binary conditional operator skip if numeric tgsg * Skips if both operands 

are numbers (with optional lending t- or - signs) and Che first is less 

than the second. 
O binary conditional operator skip if not greater . Skips if both operands 

are (optionally signed) nunders" and the Lirst is not greater than the 

second. 
:\ binary conditional operator skip I f not lc&V- Skips if both operands arc: 

(optionally signed) nunbers and the first is not less than die second. 
t(= Mnary conditional operator aklp if numeric gquol - Sfcipc if both 4p*r*Mda 

are (optionally signed) nunbers of equal numeric valve. 
tfc: = binary conditional operator ski? if numeric not equal . Skips If beth operands 

are (optionally signed) nunber* whose numeric values arc not equal. 
:*= binary conditional operator skip if not numeric equal . Identical to Jt:- • 

Each of the conditionals in this section returns the value of its rl^ht operand; 
with the numeric conditionals any atslgns in either operand will have oeen replaced 
by the random digits actually cempared. 

*L\(£ t GOTOS AND DISPATCHES 

[syra vhere sym is any symbol (or string c£ digits) is a ta£< A tag is used to 
identify a point in a string being processed to vhich the processing 
pointer nay be sent by a goto- When processing passes through a tap, t 
the current value is not affected. 

jsym where gym is similarly any symbol or string of digits is a goto . If it is 

porf ormod f tho etring in which it appear? lo ocannod from the beginning 
(i.e. left end) for an appearance of fsym . If that tag is found, 
processing resumes to the right of the tag. (If it is not found, an 
error results.) When a goto is performed, the current value la sec 
to null. 

[ vhere the character following the [ is a carriage return or liie feed is 
a "new line 1 * cofrmend which passes tae pointer over characters to cne 
right of the ( so long as each is a carriage return or liae feed, vithout 
affecting tho current value. 

( vhere the character following the [ is not [ . carriage return, line fe*d* 
a letter, a digit, or atsign. is a mil tag . 

| vhere the character following the ] is not ] , a letter, a digit* or atslgn, 
is the unary operator dispatch * Hie current value is taken: if it 
begins with a symtol (or Bering of digits), the dispatch operator attenpts 
a goto on that ayabol* (If it is not found * processing resumes to the 
right of tho ] . ) If tho current value dooo not begin with a symbol or 
string of digits (for instance, If it is null) the dispatch operator 
performs a null gcto . This is a itoto to a null ta£: to the null tae 
nearest to the left of the dispatch if there is one; the null tag nearest 
to the right of the dispatch otherwise; if there is no null tag at ail, 
processing resumes to the right of the dispatch* The dlapatch operator 
always sets the current value to null. 
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** Note: The character [ Is used both for a tag (followed by a letter or digit) , 
for "open superquote" (followed by another f ), for "new line" (followed 
by any number of carriage returns and line feeds), and for the null tag 
(otherwise)* All evaluation * skipping, and searching for tags is done from 
left to right (even when searching for the null tag nearest to the left), 
so that the case of multiple ['s in a row is always parsed the same way, 
viz*: pairs are open super quotes , and then a single one is a tag or new- 
lino coontand* 

ADDITIONAL DEFINITION' COMMANDS 

11 binary operator define via * The right operand is evaluated; its value is 
expected to begin with a symbol and that symbol is defined as a uni- 
versal symbol with a symbol value identical to the left operand, which 
is also returned as the value of the operator. 

;; binary operator level define via * Evaluates right operand like ,. and defines 
it as a level symbol like ; - 

: binary conditional operator undefine* Right operand must be a symbol; it 

is not evaluated, if it Is defined, the active definition Is removed. 
Then if no definition remains (or the symbol was undefined to start 
with) the : operator skips. The current value is not used, except 
that it is returned as the value of the operator* 

:: binary conditional operator undefinc via . Evaluates right operand like tf 
and does undefine-and-or-skip like : . 

■^ ADDITIONAL CONDITIONALS 

#sym where syro is any symbol, skips if sym is defined and not otherwise. The 
current value is not changed* 
:%■- like Ifsym but skips only if sym is not defined* 

fHf binary conditional operator skip if defined via - Evaluates right operand 

to get a symbol as does ,, then skips if that syrabol is defined, value 
is left operand* 
■ tr-f binary conditional operator skip if not defined v i a. Like #» , except skips 
only if symbol to which right operand cvnU.nes is not defined* 

# w unary conditional operator skip if number * If the current value is a number 
{with optional leading + or - sign) this operator skips- The current 
value is in any case returned as the value of the operator* The space 
is absorbed as part of the operator and is not evaluated nor involved 
In the skipping. (However, it would be seen by a skip by some prior 
command.) 
:# w unary conditional operator skip if not number . Like Jf w but with inverted 
skip sense. 

EXAMPLES: [ [«;N«>(LlX H*FACTUK-11 J ,FACT1 

[ [t;M^l ;F W U*«>0-F)-N$*F-1 : -N, ] J ) ,FACT2 

These are two alternative definitions of the factorial function* The first 
is recursive, and uses N+l levels to evaluate the factorial of N * The 
"V second is iterative, and performs the null goto N times in the same case* 

When a choice exists between these two approaches — iteration and recursion - 
THE ITERATIVE METHOD IS HIGHLY RECOMMENDED. This is because (a) the number 
of available levels is not unlimited, and (b) a significant amount of overhead 
time is taken pushing down a level and popping up. 
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SEARCHING 

A very important operation that can be performed on character strings is that 
of searching in one string for an occurrence of some other string. In the STRING 
system, all searches are performed on (i-«. in) the search string ; a separate 
search string is maintained on each level. Various commands set up or modify 
the search string (as well as search in it); initially upon entering a level 
its search string is set to null. On a given level there is no access in any 
way to the search strings of other levels. Associated with each search string 
arc two pointers called /., and J£ . Each pointer may be between any two charac- 
ters of the search string, or at either end, subject to the restriction that Ji 
will not be to the right of j£ . (Ihey may coincide.) 

*- (left arrow) binary conditional operator search . 

(1) Hi© right operand is evaluated. If its value is null: no further action 

1* taken; the value of the left operand is returned as the value of the 
*• ; no skip occurs. 

(2) Hie search string on this level is Set to the value of the right operand. 

(3) £ and J2* are set together at the left end of the search string. 

(4) The value of the left operand is sought in the search string; if it 

occurs therein more than once , the leftmost occurrence is the one found. 
If the null string is sought, it is found immediately at the beginning 
of the search string. 

(5) In the search string, £ is placed just to the left of the string found, 

and A just to its right. If no matching string was found, X and J^ 
are placed together at the right end* 

(6) The value of the left arrow operator is the search string, i.e. the right 

operand . 

(7) If a match was found, the +- skips; if not, no skip occurs* 

:*- binary conditional operator. Like*- except skips if match not found, or 

right operand null. 
,*- binary conditional operator search right-to-lef t . Like •* , except: +-. and 

R* are atarted at the right end of the search string; the rightmost 

occurrence of the sought string is found. 
;*■ binary conditional operator. Like ,*" except has skip sense of :** . 

I unary conditional operator continue search . Search string is searched right- 

ward from current position of JZ* for occurrence of operand. £ i ■ R* 
are positioned around said occurrence, or at the right end if none was 
found; skips if found, else not. The null string, if sought) is found 
immediately. Value Is the search string. 

:J unary conditional operator, like I but inverts skip sense. 

, ! unary conditional operator continue search right-to-left . Search string 

is searched leftward from A for occurrence of operand . Other details 
as for ! . 

;! unary conditional operator, like »! but skips if not found. 

PARTS OF THE SEARCH STRING 

< item left of <C . Evaluates to that portion of the search string left of Ji, . 
> itc-m r*|;ht_ of_fi _* Evaluates to that portion of the search string right of 

Ja 7 

■■■ item center . Evaluates to that portion of the search string right of £-j 

and left of J£. 
<> item left of JZ , 
>< item ri ght of]Z_ - 
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■^ .> item character right of^E . Has value of that character, and steps J& to 
right over the character- (If ^i Is at the right end of the search 
string, ha* null value-) 
■X item character right ofX » Has value of that character, does not -neve 
pointer- 

*"> (H periods . then >) item c h aracters right of R* . Hss value of n characters 

to right of JZ (or as many as there are, if less than n) , Und steps J?> 

over them. 
n.> (where n is a string of digits interpreted as a decimal integer) like - n > 

has the value of the n characters to right of Jl t and steps J£ over 

them. 

. > n characters right of X * no pointer motion. 

■ < item c haract e r left of X « Has value of that character, steps X to left 
over it. 

item characters left of «L - Has value of those characters in reverse order 



.»<7 



(right to left); steps £ over them. 

characters to left of JZ* in reverse order. No pointer movement- 



If 


the current value is 


part 


is taken as n and this 


thii 


; operator has the value 



S> unary operator variable characters r i ght of JZ * If the current value is 
an unsigned (decimal) number, that number's integer part is taken as 
n and this operator hss the value of n.> and steps J%, 11 characters 
to the right* If the operand is not an unsigned number, this operator 
has the value of > , but also places^* at the right end of the search 
string- 

S>< unary operator variable characters rifot of X ■ 
an unsigned number, that number's integer 
operator has the value of n->*. Otherwise 
of X - No pointer is moved. 

S< unary operator variable characters left of £ - If the current value is 

an unsigned number, that number's integer part is taken as n and this 
operator has the value of the n characters left of X in forward (left- 
to-right) order* X ' ^ moved to the left that many characters in the 
search string- If the operand is not an unsigned number, this operator 
has the value of < , and X is placed at the left end of the search 
string. 

?<> unary operator variable characters left of J^ - If the current value is an 
unsigned number, that number's integer part is taken as n and this 
operator has the value of n.O . Otherwise it has the value of <> - 
No pointer is moved* 

,> item word right of J£ . (1) If the character to the right of -^ is a space , 
^ is stepped over it. (2) The characters right of *Q up to but not 
including the first space (or the end of the search string) are returned 
as the value of the >> and J2 is stepped over them. 

Ilvl ^ 



n,> 



item words right of J£ » Like ,> but gets n words. Step (2^ continues up 
to the ruh space. 



*\ ' >item words right of £ . (1) If the character to the right of X is a space, 
' that character is ignored- (2) Characters right of X tip to but not 

including the nth space are returned as the value of the operator. 
Neither pointer is moved. 
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item words left of JL . (1) If the character to the left of jG Is a space, 
^ is stepped over it* (2) The characters to the left of f^ leftwards 
up to but not including the nth space are returned as the value of 
this command and £ is stepped over them. The value appears with the 
words (separated by spaces) in reverse order, each word spelled forwards. 

' " Mteoi words left of Ji . Like t ^C except (a) process starts to left of JZ ; 
1 (b) neither X nor J^ is repositioned. 

SEARCH STRING MODIFICATION 

;= unary operator replace cent er* Old center of search string (between £ 

and JZ) is deleted and operand is inserted there. Value is entire* 

(modified) search string* 
; unary operator replace left . Old left part of search string (left of X ) 

La deleted and operand takes its place- Value is new search string. 
; unary operator replace ri^ht * Right of J£ is replaced by operand; value 

is search string. 

: ,sym define as search string . The symbol sym be cooes defined as a universal 
symbol with a symbol value identical to the current search string. 
The positions of £ and -<■ are also saved as part of the definition. 
(That would not be the case if the symbol were defined in terms of 
something whose "value is the search string", since #C and J& are not 
inherent in that value.) This operator does not affect the current 
value, or modify the search string, 

:;sym level define as search string . Like : p but defines as level symbol. 

• :sytn item restore search string . The search string is set to the symbol value 
of the symbol sym. If the active definition of sym was performed by 
!, or :; then f w JL are set to their positions saved in the defi- 

nition. Otherwise T and yl are set to the left end of the search 
string. This command has the value of the new search string. 

Note: The commands :, and :; provide the only means of saving search pointers 
in a definition, and .: provides the only way such saved pointers may be 
accessed. Any use of a symbol defined by * > or :; except by the •: command 
gets the symbol value as if the pointers were not there. 

EXAMPLES: An elementary use of the sesrch string is to edit function definitions. 
Suppose .FACT2< t*W J ;K M*>M) W N$*F.,1 : -N rf l w 
and f+N should be t;N Instesd. To edit this, 

"f-W M l-.FACT2 fc NO) w "|;N v ; = ,FACT2* t;N^l ;F w kN*>0 v FkN$*F,l :-N,]~ 
The vNO)^ in esse the search falls may if one is confident be condensed to Wv # « 

As another example, to change all Instances of the string FOO to BAR in the 
definition of BLETCH: <*.BLETCH -t ,IX"FOO_: J"BAR„;=]X^,BLETCH 

INPUT AND OUTPUT 

\ unary operator print . When performed, causes the current value to be printed 

out- Returns that as its value. 
#% like % but Inserts carriage return and line feed In typeout when number of 

characters on current output line reaches line length. 
$? unary operator set line length , for 4% operator. If current value is a number 

not less than 1» line length is set to integer part of that number. 

Returns current value 
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*"■ t Item read word . When performed, takes typed- in characters through the first 
w (space) and has the value of that string excluding the space. 
•& Item read character . Takes any one typed-in character and returns it as 

value. 
#£ ilk* & but ignores any carriage returns and line feeds in the string read in. 

ERRORS 

A few cases of inscrutability in a string being processed , due most likely to 
a typing error, for which no particular default action is obvious t cause an error 
condition: processing is terminated, an error printout occurs r and then the program 
awaits a fresh typed-in string to evaluate. The error printout has three parts: 
(a) a code describing the fault detected; (b) the number of the evaluation level 
where the error occurred; (c) a "backtrace" giving: first, for the top level, 
the symbol whose evaluation was in progress, with the character preceding it; 
next, the symbol being evaluated on the second level, etc v through the level 
where the error occurred t giving for that level the character string which caused 
the error (or in a few cases f the characters just after those causing the error). 
In this backtrace, a character whose ASCII code is less than 4flL is printed as f 
followed by the character with lflflL added to its ASCII code; except that the 
character whose code is is not pointed at all- 
Error Codes: 

UCQ unclosed quote* A " was encountered which had no terminating w (space) . 
^ UCS unclosed superquote. A [[ had no matching ]] * 

UCP unclosed parenthesis* A ( had no matching ) - 
SCE storage capacity exceeded* The typed-in string, symbol definitions, 

all levels' current values and search strings, and the partial 

result of the operator being performed, all taken together exceed 

available memory. 
KSD non-symbol definition. An attempt was made to define something which 

is not a symbol. 
ASD at sign definition* An attempt was made to redefine the permanent 

symbol 9 . 
DIS decimal point in symbol. The meaningless format sym. was encountered, 
PIS parenthesis in symbol- The meaningless format sym( was encountered. 
IOP illegal operator. A character with no meaning was encountered (not 

quoted). 
IDO illegal double operator. A meaningless concatenation of two characters 

was encountered. (Many such combinations, however, are not detec- 
ted and their first characters are ignored.) 
EAS evaluated argument searches- Some form of search command occurred in 

a word on this level which is being evaluated by t on a lower level. 
ATL argument on top level. A t was processed on level 1. 
UDT undefined tag. A goto (not a dispatch) referred to a tag not defined 

in that string. 
UUO unused opcode. Internal error in the STRING program. 
POV pushdown overflow. Usually means maximum level depth exceeded. 

Note: The following Error Codes relate to the particular input-output control 
*\ features of the PDP-6 STRING program. 

\VV G character evaluated. 

LIU (Time-sharing version only) line printer In use, assignment not done. 

KFB no free blocks. DECtape used for output is full. 

NFF no free files* Not possible to initialize DECtape for output. 



Error Codes (continued): 

FNF file not found. Input file not found on specified device* 

UNA unit unable- Specified DECtape drive not turned on, not selected, 

multiply delected, or has no tape. 
BDD bad directory, on specified DECtape. 
IMD too many directories in core- One must be killed to make room for a 

new one* 
UNF (Time-sharing version only) unflappable. Specified DECtape unit's file 

directory may not be killed at this time. 

INPUT-OUTPUT CONTROL 

The following input-output control features are those implemented in the PDP-6 
STRING program; where possible they were chosen to resemble those in other MAC 
PDP-6 system programs. Their usage and effects are the same in both time-sharing 
and non-time-sharing versions of the program. 

S(c binary operator designate input file . The left operand is examined and the 
last digit therein is taken as a DECtape unit number* <In the time* 
sharing version* additionally the unit number <t refers to device DD0 
and 9 refers to DDL) If there is no digit in the operand, the most 
recent unit number given is assumed. The value of the right operand 
is then interpreted as a file name (two subnames separated by a space) 
according to the algorithm used by MACDMP* Subsequently* when DECtape 
input is turned on, input characters will com* from the designated 
file. This operator returns the left operand as its value. 

$7* unary operator initialize output file * Gets unit number from left operand 
as does Sjr . Returns operand as value. Turns on DECtape output and 
directs it to specified device. 

:% binary operator close output file . Ignores left operand except to return 
it as value. Takes right operand as file name; DECtape output since 
last ;\ or $% is filed with that name. 

:% binary operator delete file . Gets unit number and file name like $£ *. and 
deletes that file from specified device. Value is left operand. 

t % unary operator kill file directory * Gets unit number, deletes that unit's 
file directory from memory* (In time-sharing version, this command 
must be given prior to demounting tape.) 

Input characters are taken for the typed-in string to be evaluated, and for per- 
formance of J, > *fc > and X * They arc not echoed until they are taken for one 
of these purposes by the program. The prograta provides a large buffer, located 
between the keyboard and the program, for characters typed in* If a character 
is typed in when this buffer is full, that character is lost- 
Certain characters when typed in on the keyboard are filtered out and arc not 
put into the buffer for the program. 
I* ignored 

^ "Begin" tunt on line printer output 
\K_ "End" turn off line printer output 
"tape* 1 turn on DECtape output 
"not tape" turn off DECtape output 
\2_ "x-on" turn on DECtape input; this character ia treated specially* 

It is put into the type-in buffer, but when taken out of the buffer 
is performed and not passed on to the program. 
\S_ "x-off" turn off DECtape input. 
UL *urn on Teletype/user's console output 
|w^ turn off Teletype/user's console output 



% 
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\0 "Out" transfers to DDT. 

\K "oN" 1 

IF "oFf" I contro ' routing of echo output to devices other than user's console 

\? control character quote. Causes the next typed-in character to go into 
the buffer without taking special action. Exceptions: 
\£ still ignored 
(Q. this is entered in a special way such that it gets passed 

on to the program without special action 
carriage return carriage return and line feed are echoed; 

nothing is put into the buffer 
ALT MODE/ESC this is entered in such a way that it will 

not terminate the typed-in string 
RUBOUT just cancels the P . 

\G "bell" quit. (This makes use of the "console output disable flag" which 

is turned off whenever the program is ready to accept an input string.) 
Characters in the type-In and type-out buffers are all erased. Then 

(a) if the value of a typed-in string, or an error printout, 

is currently being output on some device other than, or 
in addition to, the user's console: echo a backslash on 
the console! and disable console output (turn tho flag 
on). When the output is finished, echo another backslash 
to the console and turn the flag back off* 

(b) if the console output disable flag is on: erase all charac- 

ters in other devices 1 output buffers, echo a backslash on 
the console, and output two backslashes on all devices 
selected for error output; then turn flag off and await 
a new typed-in string. 

(c) otherwise, output two backslashes to the console and all 

devices selected for error output; then await a new typed- 
in string. 

Input characters are taken initially frow the user's keyboard- When a h^ is read 
from the type-In buffer, and the s£ operator haa previously been perform^ to select 
an input DECtape file, then characters are taken from that file until the end-of- 
file ia reached or a \S_ is typed in; then input reverts to the uaer's keyboard. 

Output characters are generated to echo typed-in characters, as the value of the 
typed-in string, in the performance of % and *^ , and for error printouts. Output 
characters from all sources are routed to devices according to Fig. 1. 
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